home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / SCollection.p < prev    next >
Text File  |  2000-04-24  |  6KB  |  134 lines
  1. pTempVar <- <primitive 110 21 >
  2. <primitive 112 pTempVar 1  " with:do: " \
  3.   #( #[ 16r20 16rA6 16r73 16r21 16rA6 16r74 16r23 16rA2 16rF7 16r0F 16r22 \
  4.         16r23 16r24 16rD3 16rF2 16r20 16rA7 16r73 16r21 16rA7 16rF1 \
  5.         16r74 16rF2 16rF9 16r13 16rF2 16r5D 16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " sort: " \
  9.   #( #[ 16r20 16rAE 16r74 16r52 16r24 16rA3 16rB2 16rE1 16r05 16r33 16r25 \
  10.         16r51 16rC1 16r72 16r22 16r51 16rCB 16rFC 16r0B 16r21 16r24 \
  11.         16r22 16rB1 16r24 16r22 16r51 16rC0 16rB1 16rD3 16rAC 16rF7 \
  12.         16r1C 16r24 16r22 16rB1 16r73 16r24 16r22 16r24 16r22 16r51 \
  13.         16rC0 16rB1 16rD0 16rF2 16r24 16r22 16r51 16rC0 16r23 16rD0 \
  14.         16rF2 16r22 16r51 16rC1 16rF1 16r72 16rF2 16rF9 16r2E 16rF3 \
  15.         16rB3 16rF2 16r20 16r24 16rBF 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 3  " sort " \
  19.   #( #[ 16r20 16rE2 16r01 16r04 16r21 16r22 16rC8 16rF3 16r0B 16r2E 16rF3 \
  20.         16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 4  " select: " \
  24.   #( #[ 16r20 16r20 16r05 16r30 16rA0 16rE2 16r02 16r0C 16r21 16r23 16rB4 \
  25.         16rF7 16r04 16r22 16r23 16r0B 16r16 16rF2 16r22 16rF3 16rD7 \
  26.         16rBF 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 5  " reversed " \
  30.   #( #[ 16r05 16r1E 16r20 16rA3 16rF1 16r72 16rB0 16r71 16r20 16rE1 16r03 \
  31.         16r0B 16r21 16r22 16r23 16rD0 16rF2 16r22 16r51 16rC1 16rF1 \
  32.         16r72 16rF3 16rB3 16rF2 16r20 16r21 16rBF 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 6  " reverseDo: " \
  36.   #( #[ 16r20 16r0A 16r1F 16r72 16r20 16r0A 16r19 16r73 16r22 16r23 16rCB \
  37.         16rF7 16r14 16r20 16r22 16r0B 16r34 16rF7 16r05 16r21 16r20 \
  38.         16r22 16rB1 16rB4 16rF2 16r22 16r51 16rC1 16rF1 16r72 16rF2 \
  39.         16rF9 16r19 16rF2 16r5D 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 7  " replaceFrom:to:with:startingAt: " \
  43.   #( #[ 16r50 16r75 16r21 16r25 16rC0 16r22 16rC8 16rF7 16r13 16r20 16r21 \
  44.         16r25 16rC0 16r23 16r25 16r24 16rC0 16rB1 16rD0 16rF2 16r25 \
  45.         16r51 16rC0 16rF1 16r75 16rF2 16rF9 16r1A 16rF2 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 8  " replaceFrom:to:with: " \
  49.   #( #[ 16r23 16r21 16rE2 16r04 16r09 16r20 16r24 16r25 16rD0 16rF2 16r24 \
  50.         16r51 16rC0 16rF3 16rD7 16rF2 16rF5] \
  51.     #(  )) >
  52.  
  53. <primitive 112 pTempVar 9  " last " \
  54.   #( #[ 16r50 16r20 16rA3 16rC9 16rF6 16r05 16r20 16r20 16r0A 16r1F 16rB1 \
  55.         16rF3 16rF5] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 10  " indexOfSubCollection:startingAt: " \
  59.   #( #[ 16r20 16r21 16r22 16rE0 16r06 16r20 16r30 16rBC 16rF2 16r5D 16rF3 \
  60.         16r83 16r01 16rF3 16rF5] \
  61.     #( 'element not found' #indexOfSubCollection:startingAt:ifAbsent:  )) >
  62.  
  63. <primitive 112 pTempVar 11  " indexOfSubCollection:startingAt:ifAbsent: " \
  64.   #( #[ 16r22 16r74 16r20 16rA3 16r21 16rA3 16rC1 16r75 16r24 16r25 16rC8 \
  65.         16rF7 16r11 16r21 16r20 16r24 16rDD 16rF7 16r02 16r24 16rF3 \
  66.         16rF2 16r24 16r51 16rC0 16rF1 16r74 16rF2 16rF9 16r16 16rF2 \
  67.         16r23 16rA5 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 12  " findLast:ifAbsent: " \
  71.   #( #[ 16r20 16rE1 16r03 16r09 16r21 16r23 16rB4 16rF7 16r03 16r20 16rAB \
  72.         16rF4 16rF3 16r0B 16r2A 16rF2 16r22 16rA5 16rF3 16rF5] \
  73.     #(  )) >
  74.  
  75. <primitive 112 pTempVar 13  " findLast: " \
  76.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBC 16rF3 16rDC 16rF2 16rF5 \
  77.        ] \
  78.     #( 'last element not found'  )) >
  79.  
  80. <primitive 112 pTempVar 14  " findFirst:ifAbsent: " \
  81.   #( #[ 16r20 16rE1 16r03 16r09 16r21 16r23 16rB4 16rF7 16r03 16r20 16rAB \
  82.         16rF4 16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 15  " findFirst: " \
  86.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBC 16rF3 16rDB 16rF3 16rF5 \
  87.        ] \
  88.     #( 'first element not found'  )) >
  89.  
  90. <primitive 112 pTempVar 16  " equals:startingAt: " \
  91.   #( #[ 16r50 16r73 16r20 16rE1 16r04 16r16 16r24 16r21 16r22 16r23 16rC0 \
  92.         16rE0 16r02 16r5C 16rF4 16rD5 16rC9 16rF6 16r02 16r5C 16rF4 \
  93.         16rF2 16r23 16r51 16rC0 16rF1 16r73 16rF3 16rB3 16rF2 16r5B \
  94.         16rF3 16rF5] \
  95.     #(  )) >
  96.  
  97. <primitive 112 pTempVar 17  " copyWithout: " \
  98.   #( #[ 16r05 16r30 16rA0 16r72 16r20 16rE1 16r03 16r0A 16r23 16r21 16rB5 \
  99.         16rF6 16r04 16r22 16r23 16r0B 16r16 16rF3 16rB3 16rF2 16r20 \
  100.         16r22 16rBF 16rF3 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 112 pTempVar 18  " copyWith: " \
  104.   #( #[ 16r20 16r05 16r30 16rA0 16rF1 16r20 16r0B 16r14 16rF2 16rF1 16r21 \
  105.         16r0B 16r16 16rF2 16rBF 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 19  " copyFrom:to: " \
  109.   #( #[ 16r05 16r30 16rA0 16r73 16r21 16r22 16rB2 16rE1 16r04 16r07 16r23 \
  110.         16r20 16r24 16rB1 16r0B 16r16 16rF3 16rB3 16rF2 16r20 16r23 \
  111.         16rBF 16rF3 16rF5] \
  112.     #(  )) >
  113.  
  114. <primitive 112 pTempVar 20  " collect: " \
  115.   #( #[ 16r20 16r20 16r05 16r30 16rA0 16rE2 16r02 16r09 16r22 16r21 16r23 \
  116.         16rB4 16r0B 16r16 16rF2 16r22 16rF3 16rD7 16rBF 16rF3 16rF5 \
  117.        ] \
  118.     #(  )) >
  119.  
  120. <primitive 112 pTempVar 21  " , " \
  121.   #( #[ 16r20 16r05 16r30 16rA0 16rF1 16r20 16r0B 16r14 16rF2 16rF1 16r21 \
  122.         16r0B 16r14 16rF2 16rBF 16rF3 16rF5] \
  123.     #(  )) >
  124.  
  125. <primitive 98 #SequenceableCollection \
  126.   <primitive 97 #SequenceableCollection #KeyedCollection #AmigaTalk:General/SequenceableCollection.st \
  127.    #(  ) \
  128.    #( #with:do: #sort: #sort #select: #reversed #reverseDo:  \
  129.        #replaceFrom:to:with:startingAt: #replaceFrom:to:with: #last #indexOfSubCollection:startingAt:  \
  130.        #indexOfSubCollection:startingAt:ifAbsent: #findLast:ifAbsent: #findLast: #findFirst:ifAbsent: #findFirst:  \
  131.        #equals:startingAt: #copyWithout: #copyWith: #copyFrom:to: #collect: #,  ) \
  132.   pTempVar 6 9 >>
  133.  
  134.